home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2005 Utilities / CHIP Utilities 2005.7z / CHIP Utilities 2005.iso / images / fd32rdp.igz / fd32rdp.img / LEVEL0 / DOSRDP.CAB / bin / dosrdp.bat next >
DOS Batch File  |  2005-01-16  |  10KB  |  282 lines
  1. @if "%debug%"=="" echo off
  2. if "%1"==":" if not "%2"=="" goto %2
  3. :: Dosrdp Begin ::
  4.  
  5. if not exist %ramdrv%\bin\lmod.com %0 : _error missing lmod.com (check utils.%arcext%)
  6. if not exist %ramdrv%\bin\varset.com %0 : _error missing varset.com (check utilz.%arcext%)
  7.  
  8. if "%wattcp.cfg%"=="" %0 : _error missing WATTCP (packet driver)
  9. if not exist %wattcp.cfg%\wattcp.cfg %0 : _error missing %wattcp.cfg%\wattcp.cfg
  10. if not exist %wattcp.cfg%\tcp.cfg %0 : _error missing %wattcp.cfg%\tcp.cfg
  11.  
  12. if exist PROTMAN$ if not exist PKTDRV$ %0 : _error MsClient packet driver missing (MSNET)
  13.  
  14. if not exist %ramdrv%\bin\pktchk.com goto _npktchk
  15. %ramdrv%\bin\pktchk.com 0x20 0xff >%tmp%\nul
  16. if errorlevel 1 %0 : _error missing packet driver
  17. :_npktchk
  18.  
  19. :_start
  20. echo @if "%%debug%%"=="" echo off >%tmp%\_Dosrdp.bat
  21. inifile %wattcp.cfg%\tcp.cfg [] colordepth | lmod set rdp_color=[$3]>>%tmp%\_Dosrdp.bat
  22. inifile %wattcp.cfg%\tcp.cfg [] video | lmod set rdp_video=[$3]>>%tmp%\_Dosrdp.bat
  23. inifile %wattcp.cfg%\tcp.cfg [] refreshrate | lmod set rdp_refr=[$3]>>%tmp%\_Dosrdp.bat
  24. inifile %wattcp.cfg%\tcp.cfg [] server | lmod set rdp_srvr=[$3]>>%tmp%\_Dosrdp.bat
  25. inifile %wattcp.cfg%\tcp.cfg [] mouse | lmod set rdp_mouse=[$3]>>%tmp%\_Dosrdp.bat
  26. inifile %wattcp.cfg%\tcp.cfg [] keyboard | lmod set rdp_keyb=[$3]>>%tmp%\_Dosrdp.bat
  27. inifile %wattcp.cfg%\tcp.cfg [] port | lmod set rdp_port=[$3]>>%tmp%\_Dosrdp.bat
  28. inifile %wattcp.cfg%\tcp.cfg [] flash | lmod set rdp_flash=[$3]>>%tmp%\_Dosrdp.bat
  29. inifile %wattcp.cfg%\tcp.cfg [] startup | lmod set rdp_start=[$3]>>%tmp%\_Dosrdp.bat
  30. inifile %wattcp.cfg%\tcp.cfg [] user | lmod set rdp_user=[$3]>>%tmp%\_Dosrdp.bat
  31. inifile %wattcp.cfg%\tcp.cfg [] password | lmod set rdp_pass=[$3]>>%tmp%\_Dosrdp.bat
  32. call %tmp%\_Dosrdp.bat
  33. del %tmp%\_Dosrdp.bat >%tmp%\nul
  34.  
  35. echo. >%tmp%\_Dosrdp.tmp
  36. if not exist %ramdrv%\etc\global.set goto _noglob
  37. type %ramdrv%\etc\global.set >%tmp%\_Dosrdp.tmp
  38. :_noglob
  39. if not exist %ramdrv%\etc\Dosrdp.set goto _nospec
  40. type %ramdrv%\etc\Dosrdp.set >%tmp%\_Dosrdp.tmp
  41. :_nospec
  42. xgrep -sy "^[:s]*@*[:s]*s?e?t?[:s]*rdp_.+=" %tmp%\_Dosrdp.tmp >%tmp%\_Dosrdp.bak
  43. if errorlevel 1 goto _noset
  44. xgrep -sy "^[:s]*@*[:s]*set[:s]+" %tmp%\_Dosrdp.bak >%tmp%\_Dosrdp.bat
  45. xgrep -syv "^[:s]*@*[:s]*set[:s]+" %tmp%\_Dosrdp.bak >%tmp%\_Dosrdp.tmp
  46. if errorlevel 1 goto _runset
  47. lmod /L* set []<%tmp%\_Dosrdp.tmp >>%tmp%\_Dosrdp.bat
  48. :_runset
  49. call %tmp%\_Dosrdp.bat
  50. :_noset
  51. if "%rdp_video%"=="" set rdp_video=640*480
  52. if "%rdp_refr%"=="" set rdp_refr=75HZ
  53. if "%rdp_color%"=="" set rdp_color=8
  54. if "%rdp_mouse%"=="" set rdp_mouse=logitech
  55. if "%rdp_keyb%"=="" set rdp_keyb=1033
  56. if "%rdp_port%"=="" set rdp_port=3389
  57.  
  58. if "%rdp_ti%"=="" set rdp_ti=30
  59.  
  60. for %%i in (-c -C) do if "%1"=="%%i" goto _config
  61. if "%1"=="/c" goto _config
  62. if "%1"=="/C" goto _config
  63. for %%i in (-h -H -?) do if "%1"=="%%i" goto _usage
  64. if "%1"=="/h" goto _usage
  65. if "%1"=="/H" goto _usage
  66. if "%1"=="/?" goto _usage
  67.  
  68. if "%rdp_ncfg%"=="1" goto _nocfg
  69. if not "%1"=="" set rdp_srvr=%1
  70. call w.bat box @%0:w_cfg #2,%rdp_ti%
  71. if errorlevel 3 goto _end
  72. if errorlevel 2 goto _config
  73. :_nocfg
  74.  
  75. :_install
  76. if "%rdp_video%"=="" set rdp_video=640*480
  77. if "%rdp_refr%"=="" set rdp_refr=75HZ
  78. if "%rdp_color%"=="" set rdp_color=8
  79. if "%rdp_mouse%"=="" set rdp_mouse=logitech
  80. if "%rdp_keyb%"=="" set rdp_keyb=1033
  81. if "%rdp_port%"=="" set rdp_port=3389
  82. el! 0
  83. inifile %wattcp.cfg%\tcp.cfg [] refreshrate=%rdp_refr%
  84. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  85. inifile %wattcp.cfg%\tcp.cfg [] mouse=%rdp_mouse%
  86. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  87. inifile %wattcp.cfg%\tcp.cfg [] keyboard=%rdp_keyb%
  88. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  89. inifile %wattcp.cfg%\tcp.cfg [] colordepth=%rdp_color%
  90. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  91. inifile %wattcp.cfg%\tcp.cfg [] video=%rdp_video%
  92. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  93. inifile %wattcp.cfg%\tcp.cfg [] port=%rdp_port%
  94. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  95. inifile %wattcp.cfg%\tcp.cfg [] flash=%rdp_flash%
  96. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  97. inifile %wattcp.cfg%\tcp.cfg [] startup=%rdp_start%
  98. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  99. inifile %wattcp.cfg%\tcp.cfg [] server=%rdp_srvr%
  100. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  101. inifile %wattcp.cfg%\tcp.cfg [] user=%rdp_user%
  102. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  103. inifile %wattcp.cfg%\tcp.cfg [] password=%rdp_pass%
  104. if errorlevel 1 %0 : _error problem writing %wattcp.cfg%\tcp.cfg
  105. set rdp_pass=
  106. tfind /e "server" "=" <%wattcp.cfg%\tcp.cfg >%tmp%\nul
  107. if errorlevel 1 goto _noadd
  108. echo server= >>%wattcp.cfg%\tcp.cfg
  109. :_noadd
  110.  
  111. if not "%rdp_srvr%"=="" goto _doit
  112. if not "%1"=="" goto _doit
  113. echo DOSRDP: No Target Terminal Server (Remote Desktop) specified
  114. goto _end
  115. :_doit
  116. %ramdrv%
  117. cd %wattcp.cfg%
  118. if exist %ramdrv%\etc\g4w.dat if exist %wattcp.cfg%\g4w.dat del %wattcp.cfg%\g4w.dat >%tmp%\nul
  119. if exist %ramdrv%\etc\g4w.dat copy %ramdrv%\etc\g4w.dat %wattcp.cfg%\g4w.dat >%tmp%\nul
  120. if exist g2.exe goto _launch
  121. if exist %ramdrv%\bin\g2.exe copy %ramdrv%\bin\g2.exe . >%tmp%\nul
  122. if not exist g2.exe %0 : _error missing g2.exe
  123. :_launch
  124. if exist %ramdrv%\bin\g2.exe del %ramdrv%\bin\g2.exe >%tmp%\nul
  125. if not "%rdp_vesa%"=="1" goto _g2
  126. if not exist %ramdrv%\bin\univesa.exe if not exist %ramdrv%\bin\univbe.exe goto _g2
  127. if exist %ramdrv%\bin\univesa.exe %ramdrv%\bin\univesa.exe
  128. if exist %ramdrv%\bin\univesa.exe goto _g2
  129. if exist %ramdrv%\bin\univbe.exe %ramdrv%\bin\univbe.exe
  130. if exist %ramdrv%\bin\univbe.exe goto _g2
  131. :_g2
  132. if not "%1"=="" echo DOSRDP: Connecting to Terminal Server (Remote Desktop) '%1'
  133. if "%1"=="" echo DOSRDP: Connecting to Terminal Server (Remote Desktop) '%rdp_srvr%'
  134. for %%i in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) do echo.
  135. g2.exe %1 %2 %3 %4 %5 %6 %7 %8
  136. cd \
  137. goto _end
  138.  
  139. :_config
  140. if not "%1"=="" set rdp_srvr=%1
  141. echo :w_config "DosRdp configuration" [x]>%tmp%\_Dosrdp.tmp
  142. echo.>>%tmp%\_Dosrdp.tmp
  143. echo Dialog timeout [$ rdp_ti,3] seconds.>>%tmp%\_Dosrdp.tmp
  144. echo [!] Skip "Run DosRdp or go config?" dialog>>%tmp%\_Dosrdp.tmp
  145. echo.>>%tmp%\_Dosrdp.tmp
  146. echo TServer   [$ rdp_srvr,64    ] >>%tmp%\_Dosrdp.tmp
  147. echo User      [$ rdp_user,64    ] >>%tmp%\_Dosrdp.tmp
  148. echo Password  [$ rdp_pass,64,P  ] (better leave blank) >>%tmp%\_Dosrdp.tmp
  149. echo Startup   [$ rdp_start,128,L] (autostart program) >>%tmp%\_Dosrdp.tmp
  150. echo Port      [$ rdp_port,5]               (default 3389) >>%tmp%\_Dosrdp.tmp
  151. echo.>>%tmp%\_Dosrdp.tmp
  152. echo Video     [.] 1024*768  [.] 800*600  [.] 640*480 >>%tmp%\_Dosrdp.tmp
  153. echo   (fixed on 640*480 with unregistered version) >>%tmp%\_Dosrdp.tmp
  154. echo Refresh   [$ rdp_refr,4,U]>>%tmp%\_Dosrdp.tmp
  155. echo 16b Color [!]  (default 8 bit) >>%tmp%\_Dosrdp.tmp
  156. echo No Splash [!] >>%tmp%\_Dosrdp.tmp
  157. echo Vesa TSR  [!] (load Univesa/Univbe if available) >>%tmp%\_Dosrdp.tmp
  158. echo.>>%tmp%\_Dosrdp.tmp
  159. echo Keyboard  [$ rdp_keyb,4,L] (enter 1033 for US layout) >>%tmp%\_Dosrdp.tmp
  160. echo Ms-mouse  [!]  (default Logitech-mouse) >>%tmp%\_Dosrdp.tmp
  161. echo.>>%tmp%\_Dosrdp.tmp
  162. echo               [ Save ]  [? Cancel ]>>%tmp%\_Dosrdp.tmp
  163. set wcb1=%rdp_ncfg%
  164. if "%rdp_color%"=="16" set wcb2=1
  165. if "%rdp_flash%"=="no" set wcb3=1
  166. if "%rdp_vesa%"=="1"   set wcb4=1
  167. if "%rdp_mouse%"=="ms" set wcb5=1
  168. set wrb=3
  169. if "%rdp_video%"=="1024*768" set wrb=1
  170. if "%rdp_video%"=="800*600" set wrb=2
  171. call w.bat box @%tmp%\_Dosrdp.tmp:w_config
  172. if errorlevel 2 goto _end
  173. set rdp_ncfg=%wcb1%
  174. set rdp_color=8
  175. if "%wcb2%"=="1" set rdp_color=16
  176. set rdp_flash=yes
  177. if "%wcb3%"=="1" set rdp_flash=no
  178. set rdp_vesa=%wcb4%
  179. set rdp_mouse=logitech
  180. if "%wcb5%"=="1" set rdp_mouse=ms
  181. set rdp_video=640*480
  182. if "%wrb%"=="1" set rdp_video=1024*768
  183. if "%wrb%"=="2" set rdp_video=800*600
  184. set t_out=1
  185. call drd.bat %srcdrv%
  186. if errorlevel 1 set t_out=0
  187. wbat box @%0:w_wprot #1,%t_out%
  188. set t_out=
  189. if errorlevel 2 goto _start
  190.  
  191. echo DOSRDP: Saving configuration...
  192. set w_pass=%rdp_pass%
  193. set rdp_pass=
  194. set | tfind /f1,4 "rdp_">%tmp%\_Dosrdp.bat
  195. set rdp_pass=%w_pass%
  196. set w_pass=
  197. if not exist %srcdrv%\etc\*.* mkdir %srcdrv%\etc
  198. if not exist %ramdrv%\etc\global.set goto _yglob
  199. xgrep -syv "^[:s]*@*[:s]*s?e?t?[:s]*rdp_.+=" %ramdrv%\etc\global.set >>%tmp%\_Dosrdp.bat
  200. :_yglob
  201. type %tmp%\_Dosrdp.bat >%srcdrv%\etc\global.set
  202. type %tmp%\_Dosrdp.bat >%ramdrv%\etc\global.set
  203. if exist %srcdrv%\etc\Dosrdp.set del %srcdrv%\etc\Dosrdp.set >%tmp%\nul
  204. if exist %ramdrv%\etc\Dosrdp.set del %ramdrv%\etc\Dosrdp.set >%tmp%\nul
  205. echo DOSRDP: Configuration saved to %srcdrv%\etc\global.set
  206. echo.
  207. goto _install
  208. :w_cfg "Run DosRdp or go config?" [x]
  209.              (~press any key~: #? sec.)
  210.  
  211.   Running DosRdp ...
  212.  
  213.   (Terminal Services for DOS)
  214.   http://www.terminalsoft.net/
  215.  
  216.   Target: [$ rdp_srvr,40         ]
  217.  
  218.   If 'Target' is blank DosRdp will
  219.   not launch. Please supply Target
  220.   Server here, on the commandline,
  221.   or by entering 'Config'-mode.
  222.  
  223.   Registered users please copy your
  224.   G4W.DAT to %srcdrv%\ETC and your G2.EXE
  225.   to %srcdrv%\BIN to prevent demo-mode
  226.   behaviour of auto-disconnecting
  227.   every 15 minutes.
  228.  
  229.      [ Ok ] [ Config ] [? Abort ]
  230. ::
  231. :w_wprot "Disable write protection..." [x]
  232.  
  233.   If the disk in drive %srcdrv% is write
  234.   protected, please disable the write
  235.   protection now in order to save settings.
  236.   You can re-enable write protection after
  237.   saving.
  238.  
  239.             [ Ok ]  [? Cancel ]
  240. ::
  241. :_usage
  242. echo Parameters:
  243. echo -c        Config mode
  244. echo -h        This help info
  245. echo address   Target Server (by IP-address or DNS name)
  246. echo.
  247. goto _end
  248. :_error
  249. set rdp_pass=
  250. shift
  251. shift
  252. echo.
  253. echo DOSRDP: Error%errorlevel% %1 %2 %3 %4 %5 %6 %7 %8
  254. echo.
  255. @rem pause
  256. goto _end
  257. :_abort
  258. echo DOSRDP: Aborted...
  259. echo.
  260. @rem pause
  261. :_end
  262. set rdp_pass=
  263. set | tfind /f1,2 "W_" >%tmp%\_Dosrdp.tmp
  264. set | tfind /f1,4 "rdp_" >>%tmp%\_Dosrdp.tmp
  265. type %tmp%\_Dosrdp.tmp | lmod /L* /B= set [$1]=>%tmp%\_Dosrdp.bat
  266. call %tmp%\_Dosrdp.bat
  267. if exist %tmp%\_Dosrdp.* del %tmp%\_Dosrdp.*
  268. set _dosrdp=
  269. set ?=
  270. set wcb1=
  271. set wcb2=
  272. set wcb3=
  273. set wcb4=
  274. set wcb5=
  275. set wcb6=
  276. set wcb7=
  277. set wcb8=
  278. set wcb9=
  279. set wrb=
  280. set wbat=
  281. :: Dosrdp End ::
  282.